home *** CD-ROM | disk | FTP | other *** search
/ Power Disk 64 1998 4 / Power_Disk_64_98-04_1998_Lagune_de_Side_B.d64 / witze (1) (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  41 lines
  1. 1 print"[147]":poke53280,0:poke53281,0
  2. 2 print"[212]  [217] [194] [195][178][195] [210][210][210] [210][210][210]  [212]  [217] [194]  [194]    [206] [204]"
  3. 3 print"[212]  [217] [194]  [194]   [206]  [207]                        [205][206][205][206] [194]  [194]  [206]   [197][197][197]"
  4. 4 print"           [197][197][197]    "
  5. 5 print"******************"
  6. 6 print"[153]taste"
  7. 7 print"copyright 1991 by andy jakesch und hurz"
  8. 8 get a$:ifa$=""then8
  9. 9 print"[147]1.[212][197][201][204]":poke53280,6:poke53281,5
  10. 10 print"1. '[205]utti',fragt [208]ippi,'was gibt es denn   heute zu [205]ittag?'."
  11. 11 print"'[197]rdbeeren mit [211]cheisse',antwortet      die [205]utter.[196]arauf sagt "
  12. 12 print"  [208]ippi:'[201]gitt![197]rdbeeren!"
  13. 13 print"2. [212]reffen sich 2 [204]eute auf der [211]trasse.   [211]agt die eine:'[206]eulich fragte"
  14. 14 print"mich mein 12jaehriges [203]ind,ob es        schon einen [194][200] tragen darf'."
  15. 15 print"[198]ragt die andere:'[213]nd was hast du      gesagt?'.'[206]ein,[202]ochen!'."
  16. 16 print"3. '[196]er naechste,bitte!',sagt der [193]rzt.    [203]ommt ein [208]atient herein."
  17. 17 print"[196]ieser klagt:'[196]oktor,kein [205]ensch        beachtet mich mehr!'."
  18. 18 print"[213]ngeduldig spricht der [193]rzt:'[196]er        naechste,bitte!',worauf der"
  19. 19 print"[208]atient verdutzt umher schaut."
  20. 20 print"[212][193][211][212][197]"
  21. 21 get a$:ifa$=""then21
  22. 22 print"4. [197]in [207]stfriese sagt zu seinem            bayerischen [198]reund:'[201]ch habe"
  23. 23 print"mir neulich ein 20 teiliges [208]uzzle      gekauft und es in 90 [205]inuten"
  24. 24 print" geloest!'.[198]ragt der [194]ayer:'[213]nd was      ist so toll daran?'.'[193]uf der"
  25. 25 print"[208]ackung stand aber fuer 3-4 [202]ahre'."
  26. 26 print"5. '[196]oktor [194]rechknochen,ich habe immer     so ein klingeln im rechten "
  27. 27 print"[207]hr',sagt der [208]atient zum [193]rzt.[196]er      erwidert:'[202]a,und warum heben"
  28. 28 print"sie nicht ab?!?'."
  29. 29 print"[196]as war's fuer's [197]rste.[212][193][211][212][197]!"
  30. 30 get a$:ifa$=""then30
  31. 31 fora=0to29
  32. 32 poke53280,a
  33. 33 forx=0to20:nextx
  34. 34 nexta
  35. 300 poke828,0
  36. 301 print chr$(147) chr$(17)
  37. 302 print "load"chr$(34);"witze (2)";chr$(34); ",8
  38. 303 [153] [199](17) [199](17) [199](17) [199](17) "run"
  39. 304 [151]631,13:[151]632,13:[151]198,2
  40. 305 [153] [199](19);:[128]
  41.